home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / Source / Macintosh Tracker Source / Tracker Client Folder / Core 18⁄March⁄1994 / PortableFile.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-17  |  1.0 KB  |  62 lines  |  [TEXT/KAHL]
  1. /* PortableFile.c */
  2.  
  3. #include "PortableFile.h"
  4. #include "File.h"
  5. #include "Memory.h"
  6.  
  7.  
  8. void                    WChar(short RefNum, char Data)
  9.     {
  10.         FWriteBlock(RefNum,&Data,1);
  11.     }
  12.  
  13.  
  14. void                    WShort(short RefNum, short Data)
  15.     {
  16.         char                Buffer[2];
  17.  
  18.         Buffer[0] = Data & 0xff;
  19.         Buffer[1] = (Data >> 8) & 0xff;
  20.         FWriteBlock(RefNum,Buffer,2);
  21.     }
  22.  
  23.  
  24. void                    WLong(short RefNum, long Data)
  25.     {
  26.         char                Buffer[4];
  27.  
  28.         Buffer[0] = Data & 0xff;
  29.         Buffer[1] = (Data >> 8) & 0xff;
  30.         Buffer[2] = (Data >> 16) & 0xff;
  31.         Buffer[3] = (Data >> 24) & 0xff;
  32.         FWriteBlock(RefNum,Buffer,4);
  33.     }
  34.  
  35.  
  36. char                    RChar(short RefNum)
  37.     {
  38.         char            Buffer[1];
  39.  
  40.         FReadBlock(RefNum,Buffer,1);
  41.         return Buffer[0];
  42.     }
  43.  
  44.  
  45. short                    RShort(short RefNum)
  46.     {
  47.         char            Buffer[2];
  48.  
  49.         FReadBlock(RefNum,Buffer,2);
  50.         return (uchar)Buffer[0] | ((short)(uchar)Buffer[1] << 8);
  51.     }
  52.  
  53.  
  54. long                    RLong(short RefNum)
  55.     {
  56.         char            Buffer[4];
  57.  
  58.         FReadBlock(RefNum,Buffer,4);
  59.         return (uchar)Buffer[0] | ((long)(uchar)Buffer[1] << 8)
  60.             | ((long)(uchar)Buffer[2] << 16) | ((long)(uchar)Buffer[3] << 24);
  61.     }
  62.